perm filename COMPLR.FIX[LSP,LSP] blob
sn#193625 filedate 1975-12-20 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 EXPR ISSUBR(X) GET(X,'SUBR)
C00003 ENDMK
Cā;
EXPR ISSUBR(X); GET(X,'SUBR);
EXPR OUTCALL(NUM,FUN);
IF ISSUBR(FUN)
THEN OUTINST(<'PUSHJ,'P,<'SUBR,FUN>>)
ELSE IF UPPERFLG THEN OUTINST(<'XCT,0,<'CALL,NUM,<'E,FUN>>>)
ELSE OUTINST(<'CALL,NUM,<'E,FUN>>);
EXPR OUTJCALL(NUM,FUN);
IF ISSUBR(FUN)
THEN OUTINST(<'JRST,0,<'SUBR,FUN>>)
ELSE IF UPPERFLG THEN OUTINST(<'XCT,0,<'JCALL,NUM,<'E,FUN>>>)
ELSE OUTINST(<'JCALL,NUM,<'E,FUN>>);